home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 January to June
/
Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64
/
data maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
22 lines
10 rem--ahoy!--jan issue--data maker--prog page 48
100 rem line 50000 gets the starting location for entry of data
110 rem line 50010 gets the starting line number
115 rem line 50015 gets the amount of lines to be entered
200 rem the increment for each successive line (now 1) is in 50060 (li=li+1)
250 rem there are 18 pieces of data stored on each line, so if you want to know
260 rem how many lines you'll need, simply divide the amount of data by 18
5000 input"[147]location ";a:poke829,int(a/256):poke828,a-int(a/256)*256
50000 input"[147]location ";a:poke829,int(a/256):poke828,a-int(a/256)*256
50010 input"line number ";a:poke831,int(a/256):poke830,a-int(a/256)*256
50015 input"# of lines ";a:a=a+peek(830)+peek(831)*256
50016 poke833,int(a/256):poke832,a-int(a/256)*256
50020 a=peek(828)+peek(829)*256:li=peek(830)+peek(831)*256
50030 ifli>peek(832)+peek(833)*256-1thenend
50040 print"[147]"right$(str$(li),len(str$(li))-1)"data";
50050 fori=1to17:a$=str$(peek(a)):printright$(a$,len(a$)-1)",";:a=a+1:next
50060 a$=str$(peek(a)):printright$(a$,len(a$)-1):a=a+1:li=li+1
50070 poke829,int(a/256):poke828,a-int(a/256)*256
50080 poke831,int(li/256):poke830,li-int(li/256)*256
50090 print"goto50020"
50100 print"";:poke198,3:fori=631to636:pokei,13:next:end